home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / eyejail2.zip / EYEJAIL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-02-26  |  27KB  |  1,040 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  26580 bytes  01/28/123  08:37:14pm
  3. '! Code Segment Size  :12603 bytes
  4. '! Data Segment Size  :5267 bytes
  5. '! String Segment Size:13977 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 10) As Byte
  14.         l170 As Long
  15.         s174 As String*70
  16.       End Type
  17.  
  18.       Declare Function Func12344(mh65534 As MessageHeader) As Integer
  19.  
  20.       Dim s4463 As String
  21.       Dim i4467 As Integer
  22.       Dim s4469 As String*25
  23.       Dim s4494 As String*1
  24.       Dim s4495 As String
  25.       Dim i4501 As Integer
  26.       Dim i4503 As Integer
  27.       Dim dt4506 As DateTime
  28.       Dim s4512 As String
  29.       Dim s4516 As String*1
  30.       Dim i4517 As Integer
  31.       Dim i4519 As Integer
  32.       Dim s4521 As String*25
  33.       Dim s4546 As String*1
  34.       Dim l4547 As Long
  35.       Dim l4551 As Long
  36.       Dim s4555 As String*1
  37.       Dim l4611 As Long
  38.       Dim l4615 As Long
  39.       Dim i4619(0 To 16) As Integer
  40.       Dim i4653 As Integer
  41.       Dim i4655 As Integer
  42.       Dim i4657 As Integer
  43.       Dim i4659 As Integer
  44.       Dim i4661 As Integer
  45.       Dim i4663 As Integer
  46.       Dim i4665 As Integer
  47.       Dim i4667 As Integer
  48.       Dim i4669 As Integer
  49.       Dim i4671 As Integer
  50.       Dim i4673 As Integer
  51.       Dim i4675(0 To 12) As Integer
  52.       Dim i4701 As Integer
  53.       Dim s4703 As String*1
  54.       Dim i4704(0 To 10) As Integer
  55.       Dim i4728 As Integer
  56.       Dim s4730 As String*4
  57.       Dim s4734 As String*4
  58.       Dim b4738 As Byte
  59.       Dim b4739 As Byte
  60.       Dim i4740 As Integer
  61.       Dim i4750(0 To 4) As Integer
  62.       Dim i4760(0 To 4) As Integer
  63.       Dim i4770 As Integer
  64.       Dim w4778 As Word
  65.       Dim s4780 As String*25
  66.       Dim mh4805 As MessageHeader
  67.       Dim s5125 As String*1
  68.       Dim s5126 As String
  69.       Dim s5130 As String*25
  70.       Dim s5155 As String*12
  71.       Dim s5167 As String*12
  72.       Dim s5179 As String*1
  73.       Dim s5180 As String*25
  74.       Dim s5205 As String*25
  75.       Dim s5230 As String*25
  76.       Dim s5255 As String*12
  77.  
  78.       Dim l65530_ As Long
  79.       Dim i65534_ As Integer
  80.  
  81.       CarrierCheck(-1)
  82.       s4463 = MakeWild.RegString
  83.       GoSub 12107
  84.       GoSub 7921
  85.       If User.UserId = 1 Then
  86.         CheckMailAtLogon 
  87.       Else
  88.   102   If User.UserId <> 1 Then
  89.           GoTo 127
  90.         End If
  91.   127   If Not Exists(ProgPath + "jailbird.dat") Then
  92.           GoSub 10811
  93.           GoTo 10757
  94.         End If
  95.   160   If Exists(ProgPath + "jailbird.dat") Then
  96.           GoSub 677
  97.         End If
  98.   185   If i4503 = 1 Then
  99.           CheckMailAtLogon 
  100.         Else
  101.   209     If i4503 = 0 Then
  102.             GoSub 10811
  103.           End If
  104.   229     GoTo 10757
  105.         End If
  106.   235   CurrentDateTime dt4506
  107.         s4512 = "Program: Jail + EyeChallenge Game in Jail:"
  108.         s4512 = s4512 + FormatDate(dt4506.D, "mm/dd/yy") + FormatTime(dt4506.T, " hh:mm")
  109.         ActivityLog s4512
  110.         GoTo 302
  111.         End 
  112.         Do
  113.   302     If User.UserId = 1 Then
  114.             GoTo 1081
  115.           End If
  116.   327     Cls 
  117.           GoSub 12107
  118.           Print "@07@ @0B@╒═╤═╤═╤═╤═╤═╤═╤╤╦═╤═╤═╤═╤═╤═╤═╦╤╤═╤═╤═╤═╤═╤═╤═╕ @1B@┌────────────────────┐@0B@"
  119.           Print "@0B@ │ │ │ │ │ │ │ ││║ │ │ │ │ │ │ ║││ │ │ │ │ │ │ │ @1B@│@1A@You are in Jail     @10@│@07@"
  120.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╠╤╪╤╪╤╪╤╪╤╪╤╪╤╣╞┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@1A@  Because you have@10@ @1A@ @10@│@07@"
  121.           Print "@07@ @0B@│@07@ @0B@│@09@E@0B@│@09@Y@0B@│@09@E@0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@││╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢││@0C@P@0B@│@0C@l@0B@│@0C@e@0B@│@0C@a@0B@│@0C@s@0B@│@0C@e@0B@│@07@ @0B@│ @1B@│@1C@ @10@ @1A@been a very bad@10@   │@07@"
  122.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢├┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@1C@ @10@ @1A@user.@10@ @1A@There are @10@  │@07@"
  123.           Print "@07@ @0B@│@07@ @0B@│@0E@ @0B@│@09@I@0B@│@09@N@0B@│@09@ @0B@│@07@ @0B@│@07@ @0B@││╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢││@07@ @0B@│@0C@H@0B@│@0C@e@0B@│@0C@l@0B@│@0C@p@0B@│@0C@!@0B@│@07@ @0B@│ @1B@│@1C@ @10@ @1A@many reasons you @10@ │@07@"
  124.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢├┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@1C@ @10@ @1A@could be here.@10@    │@07@"
  125.           Print "@07@ @0B@│@07@ @0B@│@0E@ @0B@│@09@J@0B@│@09@A@0B@│@09@I@0B@│@09@L@0B@│@07@ @0B@││║@39@ @0E@┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢││@07@ @0B@│@0C@H@0B@│@0C@o@0B@│@0C@w@0B@│@0C@ @0B@│@0C@ @0B@│@07@ @0B@│ @1B@│@19@┌──────────────────┐@10@│@07@"
  126.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╟@0E@┼┼@0B@┼┴┴┴┴┴┴┴┼@0E@┼┼@0B@╢├┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@19@│@1C@To get out of@10@ @1C@Jail@10@││@07@"
  127.           Print "@07@ @0B@│@07@ @0B@│@0E@ @0B@│@0E@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@││╟@0E@┼┼@0B@┼┬┬┬┬┬┬┬┼@0E@┼┼@0B@╢││@07@ @0B@│@0C@d@0B@│@0C@o@0B@│@0C@ @0B@│@0C@I@0B@│@0C@ @0B@│@0C@ @0B@│ @1B@│@19@│@1C@you must play the @10@││@07@"
  128.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢├┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@19@│@1C@challenge game and@10@││@07@"
  129.           Print "@07@ @0B@│@07@ @0B@│@0E@ @0B@│@0E@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@││╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢││@07@ @0B@│@0C@g@0B@│@0C@e@0B@│@0C@t@0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@│ @1B@│@19@│@1C@win or you can BEG@10@││@07@"
  130.           Print "@07@ @0B@├─┼─┼─┼─┼─┼─┼─┼┤╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢├┼─┼─┼─┼─┼─┼─┼─┤ @1B@│@19@│@1C@the Sysop to free@10@ ││@0E@"
  131.           Print "@0E@ @0B@│@07@ @0B@│@0E@ @0B@│@0E@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@│@07@ @0B@││╟@0E@┼┼┼┼┼┼┼┼┼┼┼┼┼@0B@╢││@07@ @0B@│@0C@O@0B@│@0C@u@0B@│@0C@t@0B@│@0C@?@0B@│@07@ @0B@│@07@ @0B@│ @1B@│@19@│@1C@you from EyeInJail@10@││@0E@"
  132.           Print "@0E@ @0B@╘═╧═╧═╧═╧═╧═╧═╧╧╩╧╧╧╧╧╧╧╧╧╧╧╧╧╩╧╧═╧═╧═╧═╧═╧═╧═╛ @1B@└@19@╧@10@══════════════════╧┘@09@"
  133.           Print "@09@ @19@┌────────────────────────────────────────────────────────────────────┐@0A@"
  134.           Print "@0A@ @19@│@10@        @1C@ @10@   @19@ @1A@Some reasons for being in Jail are:@19@   @1A@                 @10@│@07@"
  135.           Print "@07@ @19@│@1A@ 1.Boneheadedness, 2.Flake , 3.Dropping Carrier , 4.Cussing at Sysop@10@│@07@"
  136.           Print "@07@ @19@│@1A@ 5. Bad mouth, 6.I don't like you, 7.Always Complaining , And more  @10@│@07@"
  137.           Print "@07@ @19@│@1A@ Enter C for Challenge, B to Beg and cry for freedom, L to Logoff.@19@ @1A@ @10@│@07@"
  138.           Print "@07@ @19@└@10@────────────────────────────────────────────────────────────────────┘@07@";
  139.           Print "";
  140.           Do
  141.   534       Locate 22, 5
  142.             Print "@04@ Enter C or B or L :";
  143.             Input s4516
  144.             s4516 = UCase(s4516)
  145.           Loop Until InStr("CBLcbl", s4516) <> 0
  146.           If s4516 = "C" Then
  147.             GoTo 1677
  148.           End If
  149.   621     If (s4516 = "B") = 0 Then GoTo 652
  150.           GoSub 10398
  151.         Loop
  152.   652   If s4516 = "L" Then
  153.           GoTo 9167
  154.         End If
  155.   677   i4519 = 0
  156.         Open ProgPath + "jailbird.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  157.         s4521 = User.Name
  158.   724   Do While Not EOF(1)
  159.           Get 1, i4519, s4469 '! 25 bytes
  160.           s4469 = UCase(s4469)
  161.           i4519 = i4519 + 1
  162.           If s4521 = s4469 Then
  163.             i4503 = 1
  164.             Close 1
  165.             Return 
  166.           End If
  167.   814   Loop
  168.   820   If s4521 <> s4469 Then
  169.           Close 1
  170.           i4503 = 0
  171.           Return 
  172.         End If
  173.   852   Close 1
  174.         End 
  175.       End If
  176.   858 l4547 = Ticker
  177.       l4547 = l4547
  178.       Cls 
  179.       Locate 11, 29
  180.       Print "@03@Hello Sysop."
  181.       Locate 12, 5
  182.       Print "You have 3 seconds to hit a key to access the EyeInJail Sysop Menu"
  183.       Do
  184.   911   Locate 13, 34
  185.         Print "@03@\";
  186.         Delay 0.1
  187.         Locate 13, 34
  188.         Print "@05@|";
  189.         Locate 13, 34
  190.         Delay 0.1
  191.         Print "@03@/";
  192.         Delay 0.1
  193.         s4546 = UCase(InKey(1213417543))
  194.         l4551 = Ticker
  195.         If l4551 - l4547 > 36 Then
  196.           End 
  197.         End If
  198.  1031 Loop Until s4546 > ""
  199.       If s4546 > "" Then
  200.       Else
  201.  1075   GoTo 1081
  202.       End If
  203.       Do
  204.         Do
  205.           Do
  206.             Do
  207.               Do
  208.                 Do
  209.                   Do
  210.                     Do
  211.                       Do
  212.                         Do
  213.                           Do
  214.                             Do
  215.                               Do
  216.  1081                           Cls 
  217.                                 GoSub 12107
  218.                                 Locate 2, 1
  219.                                 Print "@07@          @4C@┌────────────────────────────────────────────────┐@07@"
  220.                                 Print "@07@          @4C@│@40@           @4B@  @40@    @4B@Sysop Menu @40@                    │@07@"
  221.                                 Print "@07@          @4C@│@40@ @4B@L = List Users in Jail@40@                         │@07@"
  222.                                 Print "@07@          @4C@│@40@ @4B@S = Show Users that downloaded Member form.    @40@│@07@"
  223.                                 Print "@07@          @4C@│@40@ @4B@Q = Quit to the Bbs   @40@                         │@07@"
  224.                                 Print "@07@          @4C@│@40@ @4B@D = Remove user from jail@40@                      │@07@"
  225.                                 Print "@07@          @4C@│@40@ @4B@P = Put a user ( Dirt Bag ) in jail@40@            │@07@"
  226.                                 Print "@07@          @4C@│@40@ @4B@M = Enter Membership Form Name     @40@            │@07@"
  227.                                 Print "@07@          @4C@│@40@ @4B@E = Remove from Member Form File   @40@            │@07@"
  228.                                 If i4467 = 99 Then
  229.                                   Print "@07@          @4C@│@40@ @4B@R = Register Eye In Jail@40@                       │@07@"
  230.                                 End If
  231.  1202                           If i4467 = 100 Then
  232.                                   Print "@07@          @4C@│@40@ @4B@           Registered Thank You@40@                │@07@"
  233.                                 End If
  234.  1226                           Print "@07@          @4C@│@40@ @4B@Please enter the users@40@                         │@07@"
  235.                                 Print "@07@          @4C@│@40@ @4B@name to put in Jail  :@07@                         @40@│@07@"
  236.                                 Print "@07@          @4C@└@40@────────────────────────────────────────────────┘@07@"
  237.                                 Print ""
  238.                                 i4501 = 0
  239.                                 Do
  240.  1268                             Locate 16, 5
  241.                                   Print " Enter Choice :";
  242.                                   Input s4555
  243.                                   s4555 = UCase(s4555)
  244.                                 Loop Until InStr("LDPERQSM", s4555) <> 0
  245.                                 If s4555 = "Q" Then
  246.                                   GoTo 9167
  247.                                 End If
  248.  1355                           If s4555 = "M" Then
  249.                                   GoTo 11870
  250.                                 End If
  251.  1380                           If s4555 = "E" Then
  252.                                   GoTo 11588
  253.                                 End If
  254.  1405                           If s4555 = "P" Then
  255.                                   GoTo 9942
  256.                                 End If
  257.  1430                           If s4555 = "D" Then
  258.                                   GoTo 9480
  259.                                 End If
  260.  1455                           If s4555 = "R" Then
  261.                                   GoSub 8035
  262.                                 End If
  263.  1480                           If s4555 = "S" Then
  264.                                   GoTo 12163
  265.                                 End If
  266.  1505                           If (s4555 = "L") = 0 Then GoTo 1669
  267.                                 Cls 
  268.                                 Print "@03@               Names of people in jail are as follows"
  269.                                 Print
  270.                                 i4517 = 0
  271.                                 Open ProgPath + "jailbird.dat" For Random As 3 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  272.  1569                           Do While Not EOF(3)
  273.                                   i4517 = i4517 + 1
  274.                                   Get 3, i4517, s4469 '! 25 bytes
  275.                                   Print s4469
  276.                                 Loop
  277.  1627                           Close 3
  278.                                 If s4469 = "" Then
  279.                                   Print " No Users in jail at this time. Hard to believe you have no bad users"
  280.                                 End If
  281.  1660                           WaitEnter 
  282.                               Loop
  283.  1669                         End 
  284.                             Loop
  285.                             End 
  286.  1677                       Cls 
  287.                             GoSub 12107
  288.                             Locate 5, 1
  289.                             Print "@19@┌──────────────────────────────────────────────────────────────────────┐"
  290.                             Print "@19@│@1A@      Written by Rick Quayle of Intimate Eyes BBS 206-271-6912      @1E@ @1A@ @10@│"
  291.                             Print "@19@│@1A@ @10@   @1A@    This game is also in Eyestime (Time Banking System)           @10@│"
  292.                             Print "@19@│@1A@  This is a number challenge game that you can play for time on this  @10@│"
  293.                             Print "@19@│@1A@BBS. You have 6 Minues to complete the challenge. If you place a      @10@│"
  294.                             Print "@19@│@1A@time bet and get it wrong or stop it sooner than the 6 minutes        @10@│"
  295.                             Print "@19@│@1A@then the game will take the amount of time you have bet. If you place @10@│"
  296.                             Print "@19@│@1A@a (0) in the (Bet) field then the game will end. Otherwise it will    @10@│"
  297.                             Print "@19@│@1A@Play on. The Squares are in black so you know which ones they are.    @10@│"
  298.                             Print "@19@│@1A@The letter squares are the ones you fill in.                          @10@│"
  299.                             Print "@19@│@1A@                                                                      @10@│"
  300.                             Print "@19@│@1A@   Welcome to EyeChallenge... Good Luck and have fun.                 @10@│"
  301.                             Print "@19@└─@10@─────────────────────────────────────────────────────────────────────┘"
  302.                             Print ""
  303.                             WaitEnter 
  304.                             CarrierCheck(-1)
  305.                             i4653 = 1
  306.                             i4701 = 1
  307.                             Do
  308.                               Do
  309.  1843                           GoSub 12107
  310.                                 Print "@07@@CLS@@0B@         @0E@Number Challenge for time on @0B@@BBS@"
  311.                                 Print ""
  312.                                 Print "  @07@Max amount you can bet = 20  , @0C@payoff is 3 times the amount bet.@07@"
  313.                                 Print "@07@                                                                            "
  314.                                 Print "  @1B@┌────────────────────────┐@0A@"
  315.                                 Print "@0A@  @1B@│@1A@Place Amount to Bet:@1A@    @10@│@09@           @40@┌────┐@0A@ @09@ @4C@┌─────────────────────────┐@0A@"
  316.                                 Print "@0A@  @1B@└@10@────────────────────────┘@09@           @40@│    │@0A@  @4C@│@4B@ Enter (0) in Bet field  @40@│@0A@"
  317.                                 Print "@0A@                   @40@┌────┬────┬────┬────┼@4C@────@40@┤@0A@  @4C@│@4B@  to end this game.      @40@│@0A@"
  318.                                 Print "@0A@                   @40@│@4C@    @40@│    │    │    │    │@0A@  @4C@│@4B@                         @40@│@0A@"
  319.                                 Print "@0A@ @0B@Add the squares@0A@   @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4C@-----------------------@4B@ @40@│@0A@"
  320.                                 Print "@0A@ @0B@from left to   @0A@   @40@│    │    │    │    │    │@0A@  @4C@│@4B@  @4A@The black letters in  @4B@ @40@│@0A@"
  321.                                 Print "@0A@ @0B@right, top to @0A@    @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4A@the squares are for    @4B@ @40@│@0A@"
  322.                                 Print "@0A@ @0B@bottom, diagonal@0A@  @40@│    │    │    │    │    │@0A@  @4C@│@4B@ @4A@you to fill in.         @4B@@40@│@0A@"
  323.                                 Print "@0A@ @0B@numbers through@0A@   @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4C@-----------------------@4B@ @40@│@0A@"
  324.                                 Print "@0A@ @0B@center should add@0A@ @40@│    │    │    │    │    │@0A@  @4C@│@4B@  @4E@ You Only get 6 min.   @40@│@0A@"
  325.                                 Print "@0A@ @0B@to upper & lower @0A@ @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@00@ @0A@ @4C@│@4B@  @4E@to finish or you lose. @40@│@0A@"
  326.                                 Print "@0A@ @0B@right. @0A@           @40@│    │@4C@   @40@ │    │    │    │@0A@  @4C@│  @4E@Your Time Left =@4C@       @40@│@0A@"
  327.                                 Print "@0A@                   @40@└@4C@────@40@┴@4C@────@40@┴@4C@────@40@┴@4C@────@40@┴@4C@────@40@┘@07@  @4C@└@40@─────────────────────────┘@07@"
  328.                                 Print ""
  329.                                 s4730 = "@4B@"
  330.                                 s4734 = "@40@"
  331.                                 s4703 = "1"
  332.                                 b4738 = 9
  333.                                 b4739 = 22
  334.                                 Locate 17, 68
  335.                                 Print "@4F@"; TimeLeft
  336.                                 Locate 6, 25
  337.                                 Print "@1A@";
  338.                                 Input i4728
  339.                                 Locate 6, 25
  340.                                 Print "@1A@"; i4728
  341.                                 If i4728 = 0 Then
  342.                                   Cls 
  343.                                   Print "@03@"
  344.                                   GoTo 302
  345.                                 End If
  346.  2166                           If (i4728 > 20) = 0 Then GoTo 2217
  347.                                 Locate 19, 5
  348.                                 Print "@0B@ Sorry You Can't bet over the amount of time you have left, Try again"
  349.                                 Delay 2
  350.                               Loop
  351.                               GoTo 7455
  352.  2217
  353.  2238                         For i4653 = 1 To 16 Step 1
  354.                                 i4619(i4653) = Int(Rnd * 9) + 1
  355.                                 If i4619(i4653) <= 0 Then
  356.                                   i4619(i4653) = i4619(i4653)
  357.                                 End If
  358.  2430                         Next
  359.  2453                         i4655 = i4619(1) + i4619(2) + i4619(3) + i4619(4)
  360.                               i4657 = i4619(5) + i4619(6) + i4619(7) + i4619(8)
  361.                               i4659 = i4619(9) + i4619(10) + i4619(11) + i4619(12)
  362.                               i4661 = i4619(13) + i4619(14) + i4619(15) + i4619(16)
  363.                               i4663 = i4619(1) + i4619(5) + i4619(9) + i4619(13)
  364.                               i4665 = i4619(2) + i4619(6) + i4619(10) + i4619(14)
  365.                               i4667 = i4619(3) + i4619(7) + i4619(11) + i4619(15)
  366.                               i4669 = i4619(4) + i4619(8) + i4619(12) + i4619(16)
  367.                               i4671 = i4619(1) + i4619(5) + i4619(9) + i4619(12)
  368.                               i4673 = i4619(1) + i4619(6) + i4619(11) + i4619(16)
  369.                               i4671 = i4619(13) + i4619(10) + i4619(7) + i4619(4)
  370.                               Locate 7, 42
  371.                               Print s4730; i4673
  372.                               Locate 9, 37
  373.                               Print s4730; i4619(4)
  374.                               Locate 9, 42
  375.                               Print s4730; i4655;
  376.                               Locate 11, 22
  377.                               Print s4730; i4619(5)
  378.                               Locate 11, 42
  379.                               Print s4730; i4657;
  380.                               Locate 13, 42
  381.                               Print s4730; i4659;
  382.                               Locate 15, 42
  383.                               Print s4730; i4661;
  384.                               Locate 17, 42
  385.                               Print s4730; i4671;
  386.                               Locate 15, 27
  387.                               Print s4730; i4619(14)
  388.                               Locate 13, 32
  389.                               Print s4730; i4619(11)
  390.                               Locate 17, 22
  391.                               Print s4730; i4663;
  392.                               Locate 17, 27
  393.                               Print s4730; i4665;
  394.                               Locate 17, 32
  395.                               Print s4730; i4667;
  396.                               Locate 17, 37
  397.                               Print s4730; i4669;
  398.                               Locate 9, 24
  399.                               Print s4734; "A"
  400.                               Locate 9, 29
  401.                               Print s4734; "B"
  402.                               Locate 9, 34
  403.                               Print s4734; "C"
  404.                               Locate 11, 29
  405.                               Print s4734; "D"
  406.                               Locate 11, 34
  407.                               Print s4734; "E"
  408.                               Locate 11, 39
  409.                               Print s4734; "F"
  410.                               Locate 13, 24
  411.                               Print s4734; "G"
  412.                               Locate 13, 29
  413.                               Print s4734; "H"
  414.                               Locate 13, 39
  415.                               Print s4734; "I"
  416.                               Locate 15, 24
  417.                               Print s4734; "J";
  418.                               Locate 15, 34
  419.                               Print s4734; "K";
  420.                               Locate 15, 39
  421.                               Print s4734; "L";
  422.                               Locate 1, 1
  423.                               l4611 = Ticker
  424.                               l4611 = l4611
  425.                               Do
  426.  4451                           s4703 = "1"
  427.                                 i4701 = 0
  428.                                 l4615 = Ticker
  429.                                 If l4615 - l4611 > 6552 Then
  430.                                   Locate 21, 8
  431.                                   Print " You have ran out of time for the game. "
  432.                                   Delay 3
  433.                                   GoTo 5354
  434.                                 End If
  435.  4529                           Locate 20, 3
  436.                                 Print "@03@Enter Square Letter to fill, Enter a Letter from A to L"
  437.                                 Print "or enter (0) to End and Calculate your numbers: ";
  438.                                 Input s4703
  439.                                 Locate 20, 3
  440.                                 Print "                                                               "
  441.                                 s4703 = UCase(s4703)
  442.                                 Print "                                                                           "
  443.                                 If s4703 = "0" Then
  444.                                   GoTo 5354
  445.                                 End If
  446.  4627                           If s4703 = "A" Then
  447.                                   i4701 = 1
  448.                                   GoSub 7768
  449.                                   Locate 9, 21
  450.                                   b4738 = 9
  451.                                   b4739 = 22
  452.                                   GoSub 7866
  453.                                 End If
  454.  4686                           If s4703 = "B" Then
  455.                                   i4701 = 2
  456.                                   GoSub 7768
  457.                                   Locate 9, 26
  458.                                   b4738 = 9
  459.                                   b4739 = 27
  460.                                   GoSub 7866
  461.                                 End If
  462.  4745                           If s4703 = "C" Then
  463.                                   i4701 = 3
  464.                                   GoSub 7768
  465.                                   Locate 9, 31
  466.                                   b4738 = 9
  467.                                   b4739 = 32
  468.                                   GoSub 7866
  469.                                 End If
  470.  4804                           If s4703 = "D" Then
  471.                                   i4701 = 4
  472.                                   GoSub 7768
  473.                                   Locate 11, 26
  474.                                   b4738 = 11
  475.                                   b4739 = 27
  476.                                   GoSub 7866
  477.                                 End If
  478.  4863                           If s4703 = "E" Then
  479.                                   i4701 = 5
  480.                                   GoSub 7768
  481.                                   Locate 11, 31
  482.                                   b4738 = 11
  483.                                   b4739 = 32
  484.                                   GoSub 7866
  485.                                 End If
  486.  4922                           If s4703 = "F" Then
  487.                                   i4701 = 6
  488.                                   GoSub 7768
  489.                                   Locate 11, 36
  490.                                   b4738 = 11
  491.                                   b4739 = 37
  492.                                   GoSub 7866
  493.                                 End If
  494.  4981                           If s4703 = "G" Then
  495.                                   i4701 = 7
  496.                                   GoSub 7768
  497.                                   Locate 13, 21
  498.                                   b4738 = 13
  499.                                   b4739 = 22
  500.                                   GoSub 7866
  501.                                 End If
  502.  5040                           If s4703 = "H" Then
  503.                                   i4701 = 8
  504.                                   GoSub 7768
  505.                                   Locate 13, 26
  506.                                   b4738 = 13
  507.                                   b4739 = 27
  508.                                   GoSub 7866
  509.                                 End If
  510.  5099                           If s4703 = "I" Then
  511.                                   i4701 = 9
  512.                                   GoSub 7768
  513.                                   Locate 13, 36
  514.                                   b4738 = 13
  515.                                   b4739 = 37
  516.                                   GoSub 7866
  517.                                 End If
  518.  5158                           If s4703 = "J" Then
  519.                                   i4701 = 10
  520.                                   GoSub 7768
  521.                                   Locate 15, 21
  522.                                   b4738 = 15
  523.                                   b4739 = 22
  524.                                   GoSub 7866
  525.                                 End If
  526.  5217                           If s4703 = "K" Then
  527.                                   i4701 = 11
  528.                                   GoSub 7768
  529.                                   Locate 15, 31
  530.                                   b4738 = 15
  531.                                   b4739 = 32
  532.                                   GoSub 7866
  533.                                 End If
  534.  5276                           If s4703 = "L" Then
  535.                                   i4701 = 12
  536.                                   GoSub 7768
  537.                                   Locate 15, 36
  538.                                   b4738 = 15
  539.                                   b4739 = 37
  540.                                   GoSub 7866
  541.                                 End If
  542.  5335                         Loop Until s4703 = "0"
  543.  5354                         i4704(1) = i4675(1) + i4675(2) + i4675(3) + i4619(4)
  544.                               i4704(2) = i4675(4) + i4675(5) + i4675(6) + i4619(5)
  545.                               i4704(3) = i4675(7) + i4675(8) + i4675(9) + i4619(11)
  546.                               i4704(4) = i4675(10) + i4675(11) + i4675(12) + i4619(14)
  547.                               i4704(5) = i4675(1) + i4675(7) + i4675(10) + i4619(5)
  548.                               i4704(6) = i4675(2) + i4675(4) + i4675(8) + i4619(14)
  549.                               i4704(7) = i4675(3) + i4675(5) + i4675(11) + i4619(11)
  550.                               i4704(8) = i4675(6) + i4675(9) + i4675(12) + i4619(4)
  551.                               i4704(9) = i4675(5) + i4675(8) + i4675(10) + i4619(4)
  552.                               i4704(10) = i4675(1) + i4675(4) + i4675(12) + i4619(11)
  553.                               If i4655 <> i4704(1) Or i4657 <> i4704(2) Or i4659 <> i4704(3) Or i4661 <> i4704(4) Or i4704(5) <> i4663 Or i4704(6) <> i4665 Or i4704(7) <> i4667 Or i4704(8) <> i4669 Or i4704(9) <> i4671 Or i4704(10) <> i4673 Then
  554.                                 Print "@03@You have lost , You stay in Jail "
  555.                                 AddTime - i4728
  556.                                 Delay 2
  557.                               End If
  558.  7095                         If i4655 = i4704(1) And i4657 = i4704(2) And i4659 = i4704(3) And i4661 = i4704(4) And i4704(5) = i4663 And i4704(6) = i4665 And i4704(7) = i4667 And i4704(8) = i4669 And i4704(9) = i4671 And i4704(10) = i4673 Then
  559.                               Else
  560.  7455                           GoTo 302
  561.                                 Delay 2
  562.                                 End 
  563.                               End If
  564.  7470                         Locate 22, 1
  565.                               Print " @03@ You Have Done it in the amount required. You are Now On Parole from EyeInJail."
  566.                               i4728 = i4728 * 3
  567.                               AddTime i4728
  568.                               Open ProgPath + "jailbird.dat" For Random As 3 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  569.                               i4501 = 0
  570.  7539                         Do While Not EOF(3)
  571.                                 i4501 = i4501 + 1
  572.                                 Get 3, i4501, s4469 '! 25 bytes
  573.                                 s4469 = UCase(s4469)
  574.                                 If UCase(s4469) = UCase(User.Name) Then
  575.                                   s4469 = "EMPTY"
  576.                                   Put 3, i4501, s4469 '! 25 bytes
  577.                                   Close 3
  578.                                   Locate 23, 10
  579.                                   Print "@03@ You have been removed from the Jail cell file."
  580.                                   Delay 5
  581.                                   GoTo 9167
  582.                                 End If
  583.  7687                         Loop
  584.  7693                         If UCase(s4469) <> UCase(User.Name) Then
  585.                                 Print " Help me out of here"
  586.                                 Delay 4
  587.                                 Close 3
  588.                                 Goodbye 1213417543
  589.                               End If
  590.  7753                         End 
  591.                               Delay 2
  592.                             Loop
  593.  7768                       Locate 20, 3
  594.                             Print "@1A@Enter a number from 1 to 9 for Square number = "; s4703; "  "
  595.                             i4675(i4701) = InputNumber("@03@   Enter your Number =: ", 1, 9)
  596.                             Locate 20, 3
  597.                             Print "                                                                  "
  598.                             Print "                          "
  599.                             Return 
  600.  7866                       Locate b4738, b4739
  601.                             Print "@4F@"; i4675(i4701)
  602.                             Return 
  603.                             End 
  604.  7921                       If Not Exists(ProgPath + "ejailr.dat") Then
  605.                               i4467 = 99
  606.                               Return 
  607.                             End If
  608.  7950                       If Exists(ProgPath + "ejailr.dat") Then
  609.                               Open ProgPath + "ejailr.dat" For Input As 2
  610.                             End If
  611.  7994                       Get 2, 1, i4740 '! 2 bytes
  612.                             Close 2
  613.                             If i4740 = 10 Then
  614.                               i4467 = 100
  615.                             End If
  616.  8033                       Return 
  617.                             End 
  618.  8035                       If i4467 = 100 Then
  619.                               Return 
  620.                             End If
  621.  8051                       w4778 = 92598456
  622.                             i4750(1) = 1
  623.                             i4750(2) = 2
  624.                             i4750(3) = 3
  625.                             i4750(4) = 4
  626.                             i4760(1) = 0
  627.                             i4760(2) = 0
  628.                             i4760(3) = 0
  629.                             i4760(4) = 0
  630.                             i4770 = 0
  631.                             Cls 
  632.                             Locate 5, 5
  633.                             Print "@4F@Registration Code Entry Area for EyeInJail"
  634.                             Locate 6, 5
  635.                             Print " You will be asked for 4 codes.     "
  636.                             Print
  637.                             i4750(1) = InputNumber("Enter Code Number 1: ", 0, 9999)
  638.                             i4750(2) = InputNumber("Enter Code number 2: ", 0, 9999)
  639.                             i4750(3) = InputNumber("Enter Code number 3: ", 0, 9999)
  640.                             i4750(4) = InputNumber("Enter Code number 4: ", 0, 9999)
  641.                             If i4750(1) >= 1114 And i4750(1) <= 1140 Then
  642.                               i4760(1) = 1
  643.                             End If
  644.  8574                       If i4750(2) >= 2109 And i4750(2) <= 2128 Then
  645.                               i4760(2) = 2
  646.                             End If
  647.  8672                       If i4750(3) >= 5456 And i4750(3) <= 5473 Then
  648.                               i4760(3) = 3
  649.                             End If
  650.  8770                       If i4750(4) >= 8761 And i4750(4) <= 8769 Then
  651.                               i4760(4) = 4
  652.                             End If
  653.  8868                       i4770 = i4760(1) + i4760(2) + i4760(3) + i4760(4)
  654.                             Print i4770
  655.                             If i4770 <> 10 Then
  656.                               Print " Not Registered, entered Wrong Code"
  657.                               Print " Call Intimate Eyes at 206-271-6912 to Optain the Registration Code"
  658.                               Delay 3
  659.                               i4467 = 99
  660.                               Return 
  661.                             End If
  662.  9041                       Print "                        Registered Thank You"
  663.                             i4467 = 100
  664.                             Delay 3
  665.                             Open ProgPath + "ejailr.dat" For Output As 1
  666.                             Put 1, -1, i4770 '! 2 bytes
  667.                             Put 1, 4, i4750(4) '! 2 bytes
  668.                             Put 1, 8, ??4774 '! 4 bytes
  669.                             Put 1, 14, w4778 '! 2 bytes
  670.                             Close 1
  671.                             Return 
  672.                             End 
  673.  9167                       If s4516 = "L" And i4467 = 99 Then
  674.                               GoSub 9318
  675.                               Goodbye 1213417543
  676.                             End If
  677.  9211                       If s4516 = "L" And i4467 = 100 Then
  678.                               Goodbye 1213417543
  679.                             End If
  680.  9249                       If s4555 = "Q" And i4467 = 100 Then
  681.                               End 
  682.                             End If
  683.  9280                       If s4555 = "Q" And i4467 = 99 Then
  684.                               GoSub 9318
  685.                               End 
  686.                             End If
  687.  9317                       End 
  688.  9318                       Cls 
  689.                             GoSub 12107
  690.                             Print "@0E@@CLS@@07@"
  691.                             Print ""
  692.                             Print
  693.                             Print
  694.                             Print
  695.                             Print
  696.                             Print "@07@              @19@┌───────────────────────────────────────┐@07@"
  697.                             Print "@07@              @19@│@1B@       Written By Rick Quayle          @10@│@07@"
  698.                             Print "@07@              @19@│@1B@         Intimate Eyes BBS             @10@│@07@"
  699.                             Print "@07@              @19@│@1B@           206-271-6912                @10@│@07@"
  700.                             Print "@07@              @19@│@1B@  @1C@----------------------------------@1B@   @10@│@07@"
  701.                             Print "@07@              @19@│@1B@    Unregistered = 5 Second Delay   @1B@   @10@│@07@"
  702.                             Print "@07@              @19@│@1B@  @1C@----------------------------------@1B@   @10@│@07@"
  703.                             Print "@07@              @19@│@1B@  @1A@Please ask your sysop to register   @1B@ @10@│@07@"
  704.                             Print "@07@              @19@│@1B@ @1A@  @1B@ @1A@  EyeInJail. Its only $5.00   @1B@     @10@│@07@"
  705.                             Print "@07@              @19@│@1B@     @1A@The delay will disappear with @1B@    @10@│@07@"
  706.                             Print "@07@              @19@│@1B@      @1A@      @1B@ @1A@registration. @1B@            @10@│@07@"
  707.                             Print "@07@              @19@└@10@───────────────────────────────────────┘@07@"
  708.                             Print "@03@"
  709.                             Delay 5
  710.                             Return 
  711.                             End 
  712.  9480                       Locate 13, 1
  713.                             Print "@07@          @4C@│@40@ @4B@To Remove from Jail"
  714.                             Locate 13, 36
  715.                             Input s4495
  716.                             s4495 = UCase(s4495)
  717.                             If (UCase(s4495) < "0") = 0 Then GoTo 9546
  718.                           Loop
  719.  9546                     Locate 15, 10
  720.                           Print "@03@You have entered "; s4495; " as the name to Remove "
  721.                           Locate 16, 6
  722.                           Print "        Are you sure "
  723.                           Do
  724.  9591                       Locate 16, 28
  725.                             Print "Y/N: ";
  726.                             Input s4494
  727.                             s4494 = UCase(s4494)
  728.                           Loop Until InStr("YNyn", s4494) <> 0
  729.                           If (s4494 = "N") = 0 Then GoTo 9678
  730.                         Loop
  731.  9678                   If s4494 = "Y" Then
  732.                           Open ProgPath + "jailbird.dat" For Random As 3 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  733.                         End If
  734.  9722                   i4501 = 0
  735.  9728                   Do While Not EOF(3)
  736.                           i4501 = i4501 + 1
  737.                           Get 3, i4501, s4469 '! 25 bytes
  738.                           s4469 = UCase(s4469)
  739.                           If UCase(s4469) = UCase(s4495) Then
  740.                             s4469 = "EMPTY"
  741.                             Put 3, i4501, s4469 '! 25 bytes
  742.                             Close 3
  743.                             Locate 18, 15
  744.                             Print "@03@ User removed from jail file"
  745.                             Delay 0.5
  746.                             GoTo 1081
  747.                           End If
  748.  9870                   Loop
  749.  9876                   If (UCase(s4469) <> UCase(s4495)) = 0 Then GoTo 9935
  750.                         Close 3
  751.                         Locate 18, 5
  752.                         Print " Sorry ** That Person is NOT in jail, Try again"
  753.                         Delay 3
  754.                       Loop
  755.  9935               Loop
  756.                     End 
  757.  9942               Locate 13, 36
  758.                     Input s4780
  759.                     If (UCase(s4780) < "0") = 0 Then GoTo 9985
  760.                   Loop
  761.  9985             Locate 15, 10
  762.                   Print "@03@You have entered @04@"; UCase(s4780); "@03@ as the name to lock up "
  763.                   Locate 16, 6
  764.                   Print "        Are you sure "
  765.                   Do
  766. 10035               Locate 16, 28
  767.                     Print "Y/N: ";
  768.                     Input s4494
  769.                     s4494 = UCase(s4494)
  770.                   Loop Until InStr("YNyn", s4494) <> 0
  771.                   If (s4494 = "N") = 0 Then GoTo 10122
  772.                 Loop
  773. 10122           If s4494 = "Y" Then
  774.                   Open ProgPath + "jailbird.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  775.                 End If
  776. 10166           i4501 = 0
  777. 10172           Do While Not EOF(1)
  778.                   i4501 = i4501 + 1
  779.                   Get 1, i4501, s4469 '! 25 bytes
  780.                   s4469 = UCase(s4469)
  781.                   If s4469 = UCase(s4780) Then
  782.                     Close 1
  783.                     Locate 18, 5
  784.                     Print " Sorry ** That Person is already in jail, Try again"
  785.                     Delay 3
  786.                     GoTo 1081
  787.                   End If
  788. 10287           Loop
  789. 10293           If s4469 <> UCase(s4780) Then
  790.                   i4501 = i4501 + 1
  791.                   s4469 = s4780
  792.                   Put 1, i4501, s4469 '! 25 bytes
  793.                   Close 1
  794.                 End If
  795. 10362           Locate 18, 15
  796.                 Print "@03@ User Added to jail file"
  797.                 Delay 1
  798.               Loop
  799.             Loop
  800. 10398       Cls 
  801.             GoSub 12107
  802.             Locate 7, 1
  803.             Print "@07@    @0B@    @07@  @4C@┌───────────────────────────────────────────────┐@0B@"
  804.             Print "@0B@  @07@        @4C@│@40@ @4B@This is where you Cry and or Beg the sysop of@40@ │@07@"
  805.             Print "@07@ @0B@  @07@       @4C@│@40@ @4B@this bbs to let you out of jail for being a@40@   │@07@"
  806.             Print "@07@   @0B@  @07@     @4C@│@40@ @4B@bad user. You are on a real roll and you have@40@ │@07@"
  807.             Print "@07@     @0B@  @07@   @4C@│@40@ @4B@had to do something real (boneheaded) to get@40@  │@07@"
  808.             Print "@07@       @0B@  @07@ @4C@│@40@ @4B@put in jail in the first place.@40@ @4B@So you cry and@40@│@0B@"
  809.             Print "@0B@  @07@        @4C@│@40@ @4B@beg for forgiveness and I might put you on    @40@│@0B@"
  810.             Print "@0B@          @4C@│@4B@ parole for a while. (Maybe)  If you leave  @40@   │@07@"
  811.             Print "@0B@  @07@        @4C@│@40@ @4B@the fields blank, the system writes a message @40@│@0B@"
  812.             Print "@0B@  @07@        @4C@│@40@ @4B@for you and you will not get a response.      @40@│@0B@"
  813.             Print "@07@    @0B@  @07@    @4C@└@40@───────────────────────────────────────────────┘@07@"
  814.             Do
  815. 10513         Locate 18, 10
  816.               Print "@03@   Do you want to Beg for Parole Y/N: ";
  817.               Input s5125
  818.               s5125 = UCase(s5125)
  819.             Loop Until InStr("YNyn", s5125) <> 0
  820.             If s5125 = "N" Then
  821.               GoTo 302
  822.             End If
  823. 10600       If Func12344(mh4805) Then
  824.               Locate 19, 3
  825.               Print "@03@ Your Cry or Beg to the Sysop is: ";
  826.               Input s5126
  827.               If s5126 = "" Then
  828.                 s5126 = " No Beg Now, Jail System message. Not User."
  829.                 AddMessage(mh4805, s5126, "", 1213417543)
  830.                 GoTo 302
  831.               End If
  832. 10690         If s5126 > "" Then
  833.                 AddMessage(mh4805, s5126, "", 1213417543)
  834.               End If
  835. 10728       Else
  836. 10734         Print " Message has not been sent"
  837.               Delay 3
  838.             End If
  839. 10751       GoTo 302
  840. 10757       If FastLogon Then
  841.               End 
  842.             End If
  843. 10767       If RIPDetected Then
  844.               RIPEnabled
  845.             End If
  846. 10780       DisplayFile("postrip")
  847.             HelloFiles 
  848.             CheckNewsletter 
  849.             CheckBulletins 
  850.             QuoteOfTheDay 
  851.             CheckMailAtLogon 
  852.             GoTo 10810
  853. 10810       End 
  854. 10811       If User.SecLevel = "NEWUSER" Then
  855.             Else
  856. 10840         Return 
  857.             End If
  858. 10841       GoTo 11174
  859.             Return 
  860.             Do
  861. 10848         If Exists(ProgPath + "Regname.dat") Then
  862.                 Open ProgPath + "regname.dat" For Input As 1
  863.                 Get 1, -1, s5167 '! 12 bytes
  864.                 s5155 = UCase(s5167)
  865.                 Close 1
  866.               End If
  867. 10925         If Not Exists(ProgPath + "regname.dat") Then
  868.                 Return 
  869.               End If
  870. 10947         Cls 
  871.               GoSub 12107
  872.               Locate 4, 1
  873.               Print "@07@           @19@┌──────────────────────────────────────┐@07@"
  874.               Print "@07@           @19@│@10@ @1B@Required Download of the Membership@10@  │@07@"
  875.               Print "@07@           @19@│@10@ @1B@     @10@ @1B@Registration Form from@10@         │@07@"
  876.               Print "@07@           @19@│@10@  @1B@     @10@                               │@07@"
  877.               Print "@07@           @19@│@1C@──────────────────────────────────────@10@│@07@"
  878.               Print "@07@           @19@│@10@ @1B@If you do not download the form now@10@  │@07@"
  879.               Print "@07@           @19@│@10@ @1B@then you can not access this system.@10@ │@07@"
  880.               Print "@07@           @19@│  @1A@Download File Now  Y/N  @0A@   @19@         @10@│@0B@"
  881.               Print "@0B@           @19@└@10@──────────────────────────────────────┘@1E@"
  882.               Print "@1E@" + Chr(27) + "[7;21H@BBS@" + Chr(27) + "[14;13H@07@"
  883.               Do
  884. 11053           Locate 11, 40
  885.                 Input s5179
  886.                 s5179 = UCase(s5179)
  887.               Loop Until InStr("YN", s5179) <> 0
  888.               If s5179 = "Y" Then
  889.                 SendFile(s5155, 1213417543)
  890.                 GoSub 11359
  891.                 Return 
  892.               End If
  893. 11147         If s5179 = "N" Then
  894.                 Goodbye 1213417543
  895.               End If
  896. 11174         i4501 = 1
  897.               Open ProgPath + "autoreg.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  898.               s5205 = UCase(User.Name)
  899. 11225         Do While Not EOF(1)
  900.                 Get 1, i4501, s5130 '! 25 bytes
  901.                 s5180 = UCase(s5130)
  902.                 i4501 = i4501 + 1
  903.                 If UCase(s5205) = UCase(s5130) Then
  904.                   Close 1
  905.                   Return 
  906.                 End If
  907. 11314         Loop
  908. 11320         If (UCase(s5205) <> UCase(s5130)) = 0 Then GoTo 11357
  909.               Close 1
  910.             Loop
  911. 11357       Return 
  912.             End 
  913. 11359       If Not Carrier Then
  914.               Close 1
  915.               Return 
  916.             End If
  917. 11376       i4501 = 1
  918.             Open ProgPath + "autoreg.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  919.             s5205 = UCase(User.Name)
  920. 11427       Do While Not EOF(1)
  921.               Get 1, i4501, s5130 '! 25 bytes
  922.               s5180 = UCase(s5130)
  923.               i4501 = i4501 + 1
  924.               If UCase(s5130) = UCase(s5205) Then
  925.                 Close 1
  926.                 End 
  927.               End If
  928. 11516       Loop
  929. 11522       If UCase(s5130) <> UCase(s5205) Then
  930.               s5130 = UCase(User.Name)
  931.               Put 1, i4501, s5130 '! 25 bytes
  932.               Close 1
  933.             End If
  934. 11587       Return 
  935. 11588       i4501 = 0
  936.             Cls 
  937.             Print " Enter user to delete from Membership download file: ";
  938.             Input s5230
  939.             If (s5230 = "") = 0 Then GoTo 11639
  940.           Loop
  941. 11639     Open ProgPath + "autoreg.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  942.           s5230 = UCase(s5230)
  943. 11679     Do While Not EOF(1)
  944.             i4501 = i4501 + 1
  945.             Get 1, i4501, s5130 '! 25 bytes
  946.             s5180 = UCase(s5130)
  947.             If s5180 = s5230 Then
  948.               s5130 = "Deleted Space"
  949.               Put 1, i4501, s5130 '! 25 bytes
  950.               Close 1
  951.               Print "Name Removed"
  952.               Delay 2
  953.               GoTo 1081
  954.             End If
  955. 11810     Loop
  956. 11816     If (s5180 <> s5230) = 0 Then GoTo 11864
  957.           Close 1
  958.           Print "Name Not Found"
  959.           Delay 1.5
  960.         Loop
  961. 11864   Close 1
  962.         End 
  963.         Do
  964. 11870     Cls 
  965.           GoSub 12107
  966.           Locate 3, 1
  967.           Print "@0B@  @0A@         @07@  @4C@┌─────────────────────────────────────────┐@0A@"
  968.           Print "@0A@ @0B@  @0A@        @07@  @4C@│@4A@ Sysop, Just enter the form name used as @40@│@0A@"
  969.           Print "@0A@   @0B@  @0A@      @07@  @4C@│@4A@ your membership form. If you hit return @40@│@0A@"
  970.           Print "@0A@     @0B@  @0A@    @07@  @4C@│@4A@ (Leave blank) then this program will    @40@│@0A@"
  971.           Print "@0A@       @0B@  @0A@  @07@  @4C@│@4A@ just quit.    @4B@ @4A@                         @40@│@0A@"
  972.           Print "@0A@         @0B@  @07@  @4C@│@4B@  If you have already entered a filename @40@│@07@"
  973.           Print "@07@             @4C@│@4B@ and want to change it then enter again. @40@│@07@"
  974.           Print "@07@             @4C@│@4B@ Whatever you enter will be the new file @40@│@07@"
  975.           Print "@07@             @4C@│@4B@ name for your membership form.          @40@│@0B@"
  976.           Print "@07@             @4C@│@4B@ Example (member.zip or Regist.txt Etc.) @40@│@0B@"
  977.           Print "@0B@             @4C@│@07@                                         @40@│@0A@"
  978.           Print "@0A@         @07@ @0B@  @07@ @4C@└─@40@────────────────────────────────────────┘@07@"
  979.           Locate 13, 17
  980.           Input s5255
  981.           If s5255 = "" Then
  982.             GoTo 1081
  983.           End If
  984. 12034     Open ProgPath + "regname.dat" For Output As 1
  985.           Put 1, -1, s5255 '! 12 bytes
  986.           Close 1
  987.           Locate 15, 20
  988.           Print "@03@Form Name has been Added"
  989.           Delay 2
  990.         Loop
  991. 12107   If RIPDetected Then
  992.           DisplayFile("postrip")
  993.         End If
  994. 12125   Return 
  995.         Print "!|1K|*|Y01000500|1B00000200LC060F000F080700000F07000000|1U0A08HH910000<><>"
  996.         Print "!|1B0000020PI800040F0F080700080F07000000|1U0G0CHA1C0000<>@BBS@<>"
  997.         Print "!|1B0000020PHC000F000F080700000F07000000|1U0G1KHA8W0000<><>"
  998.         Print "!|1B0000020PHC000F000F080000000F07000000|1U0N1ZH28Q0000<><>|w04092D1211|#|#|#"
  999.         Return 
  1000. 12163   Cls 
  1001.         Print " Members That have Downloaded your Membership Form"
  1002.         i4501 = 1
  1003.         Open ProgPath + "autoreg.dat" For Random As 1 Len = 25 '! This value should probably be replaced with a "SizeOf" expression
  1004.         s5205 = UCase(User.Name)
  1005. 12226   Do While Not EOF(1)
  1006.           Get 1, i4501, s5130 '! 25 bytes
  1007.           s5180 = UCase(s5130)
  1008.           i4501 = i4501 + 1
  1009.           Print " "; s5130
  1010.         Loop
  1011. 12306   Close 1
  1012.         WaitEnter 
  1013.       Loop
  1014.  
  1015. '! Called 1 time
  1016.       Function Func12344(mh65534 As MessageHeader) As Integer
  1017.         Dim i65530 As Integer
  1018.  
  1019.         Func12344 = 0
  1020.         Do
  1021. 12359     mh65534.From = User.Name
  1022.           mh65534.ToId = 1
  1023.           mh65534.To = "Sysop"
  1024.           Locate 18, 5
  1025.           Print "@03@  Message Subject, Enter (Put me on parole):  ";
  1026.           Input mh65534.Subject
  1027.           If mh65534.Subject = "" Then
  1028.             mh65534.Subject = "No Begging by user"
  1029.           End If
  1030. 12483     i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  1031.           If Not i65530 Then
  1032.             If InputYesNo("Abort Message ? ", 1213417543) Then
  1033.               GoTo 12595
  1034.             End If
  1035.           End If
  1036. 12576   Loop Until i65530
  1037.         Func12344 = -1
  1038. 12595
  1039.       End Function
  1040.